home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Telecom / Scripts / ARA Modem Scripts / Glob Vlg PP⁄V.32 Pulse < prev    next >
Text File  |  1992-02-05  |  3KB  |  188 lines

  1. ! Global Village PowerPort/V.32 Modem - 11/17/91
  2. ! Global Village Communication, Inc., Menlo Park, California
  3. ! (415) 329-0700
  4. !
  5. ! This version does pulse dialing
  6. ! Revised 2/5/92 to ignore dial tone and busy 
  7. !
  8. @ORIGINATE
  9. @ANSWER
  10. !
  11. @LABEL 1
  12. serreset 9600, 0, 8, 1
  13. dtrset
  14. matchclr
  15. settries 0
  16. !
  17. ! first recall the factory configuration
  18. !
  19. @LABEL 2
  20. matchstr 1 3 "OK\13\10"
  21. write "AT\13"
  22. matchread 30
  23. inctries
  24. iftries 3 59
  25. ! Modem is not responding, reset
  26. DTRClear
  27. pause 5
  28. DTRSet
  29. jump 2
  30. !
  31. ! Next, Set up the configuration: turn off echo
  32. !
  33. @LABEL 3
  34. matchstr 1 39 "OK\13\10"
  35. write "AT&F\13"
  36. matchread 40
  37. pause 5
  38. jump 2
  39. !
  40. @LABEL 39
  41. matchstr 1 4 "OK\13\10"
  42. write "ATE0X1&C1%C0\\N0\\Q2&D3\13"
  43. matchread 30
  44. jump 59
  45. !
  46. ! If speaker on flag is true, jump to label 8.  Else turn off the speaker
  47. @LABEL 4
  48. hsreset 0 1 0 0 0 0
  49. ifstr 2 8 "1"
  50. matchstr 1 8 "OK\13\10"
  51. write "ATM0\13"
  52. matchread 30
  53. jump 59
  54. !
  55. ! The modem is ready.  So enable answering, or originate a call
  56. !
  57. @LABEL 8
  58. ifANSWER 13
  59. note "Dialing ^1" 3
  60. write "ATS0=0DP^1\13"
  61. !
  62. @LABEL 9
  63. matchstr 1 11 "CONNECT 4800\13\10"
  64. matchstr 2 12 "CONNECT 9600\13\10"
  65. matchstr 3 19 "CONNECT 2400\13\10"
  66. matchstr 4 50 "NO CARRIER\13\10"
  67. matchstr 5 59 "ERROR\13\10"
  68. matchstr 6 52 "NO DIALTONE\13\10"
  69. matchstr 7 53 "BUSY\13\10"
  70. matchstr 8 54 "NO ANSWER\13\10"
  71. matchread 700
  72. jump 59
  73. !
  74. @LABEL 11
  75. note "Modem connection established at 4800 bps" 2
  76. setspeed 4800
  77. jump 15
  78. !
  79. @LABEL 19
  80. note "Modem connection established at 2400 bps" 2
  81. setspeed 2400
  82. jump 15
  83. !
  84. @LABEL 12
  85. note "Modem connection established at 9600 bps" 2
  86. !
  87. @LABEL 15
  88. ifANSWER 18
  89. pause 30
  90. @LABEL 18
  91. exit 0
  92. !
  93. ! @ANSWER
  94. ! Set up the modem to answer
  95. @LABEL 13
  96. write "ATS0=1\13"
  97. matchstr 1 14 "OK\13\10"
  98. matchread 30
  99. jump 59
  100. !
  101. @LABEL 14
  102. matchstr 1 20 "RING\13\10"
  103. matchstr 2 11 "CONNECT 4800\13\10"
  104. matchstr 3 12 "CONNECT 9600\13\10"
  105. matchstr 4 19 "CONNECT 2400\13\10"
  106. matchstr 5 50 "NO CARRIER\13\10"
  107. matchstr 6 59 "ERROR\13\10"
  108. matchstr 7 52 "NO DIALTONE\13\10"
  109. matchstr 8 53 "BUSY\13\10"
  110. matchstr 9 54 "NO ANSWER\13\10"
  111. matchread 700
  112. jump 14
  113. !
  114. @LABEL 20
  115. userhook 1
  116. note "Answering phone…" 2
  117. jump 14
  118. !
  119. ! 50: error messages
  120. !
  121. @LABEL 50
  122. exit -6021
  123. !
  124. @LABEL 52
  125. exit -6020
  126. !
  127. @LABEL 53
  128. exit -6022
  129. !
  130. @LABEL 54
  131. exit -6023
  132. !
  133. @LABEL 59
  134. exit -6019
  135. !
  136. ! Hang up the modem
  137. !
  138. @HANGUP
  139. @LABEL 60
  140. settries 0
  141. @LABEL 61
  142. matchclr
  143. write "ATH0\13"
  144. matchstr 1 64 "OK\13\10"
  145. matchstr 2 63 "NO CARRIER\13\10"
  146. matchstr 3 64 "ERROR\13\10"
  147. matchread 30
  148. inctries
  149. iftries 3 63
  150. ! no response, try escape sequence
  151. write "+++"
  152. matchclr
  153. matchstr 1 62 "OK\13\10"
  154. matchread 15
  155. ! still no response, toggle DTR
  156. DTRClear
  157. pause 10
  158. DTRSet
  159. jump 61
  160. !
  161. @LABEL 62
  162. pause 5
  163. matchstr 1 64 "OK\13\10"
  164. matchstr 2 63 "NO CARRIER\13\10"
  165. write "ATH0\13"
  166. matchread 60
  167. jump 61
  168. !
  169. @LABEL 63
  170. pause 45
  171. Flush
  172. !
  173. ! Recall the factory settings
  174. !
  175. @LABEL 64
  176. matchclr
  177. matchstr 1 65 "OK\13\10"
  178. write "AT&F\13"
  179. matchread 30
  180. !
  181. @LABEL 65
  182. matchstr 1 66 "OK\13\10"
  183. write "ATS0=0\13"
  184. matchread 30
  185. !
  186. @LABEL 66
  187. exit 0
  188.